home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / HippoDraw / hippo / hippowrapsps.psw < prev    next >
Encoding:
Text File  |  1992-04-28  |  781 b   |  30 lines
  1. /*
  2.  * hippowraps.psw - histogramming package postscript wraps. 
  3.  * by william shipley, at SLAC, august 1990
  4.  *    
  5.  * Copyright (C)  1991  The Board of Trustees of The Leland Stanford
  6.  * Junior University.  All Rights Reserved.
  7.  *
  8.  * $Header: /nfs/ebnextk/LocalSources/hippo/RCS/hippowrapsps.psw,v 2.13 1992/03/12 02:07:06 rensing Rel $
  9.  *
  10.  * Modified by M. Gravina 3/27/91
  11.  */
  12.  
  13.  
  14. /*   
  15.  *  drawTextPS - draw Text with specified rotation and positioning.
  16.  */
  17. defineps drawTextPS(char *message; 
  18.                     float x, y, fontSize, rotation, xAlignStep, yAlignStep;
  19.                     char *fontName)
  20. gsave
  21.     (fontName) fontSize selectfont
  22.     x y translate
  23.     rotation rotate
  24.     (message) dup stringwidth pop
  25.     xAlignStep neg mul fontSize yAlignStep neg mul
  26.     moveto
  27.     show
  28. grestore
  29. endps
  30.